home *** CD-ROM | disk | FTP | other *** search
/ Windows News 2005 November / WNnov2005.iso / Windows / Equipement / hMailServer / hMailServer-4.1-Build-136.exe / {app} / PHPWebAdmin / distributionlists_delete.php < prev    next >
PHP Script  |  2005-01-06  |  2KB  |  63 lines
  1. <?php
  2. /*
  3. ** $Id: distributionlists_delete.php,v 1.3 2005/01/05 22:22:50 hmailserver Exp $
  4. **
  5. **    hMailServer - Web interface
  6. **
  7. **    File formatted using TAB size 4
  8. **
  9. **    Get hMailserver at http://www.hmailserver.com
  10. **
  11. **    Author: Steen Rab°l <srabol@mail.tele.dk>
  12. **    Copyright (c) 2004, Steen Rab°l <srabol@mail.tele.dk>
  13. **
  14. **  This program is free software; you can redistribute it and/or modify
  15. **  it under the terms of the GNU General Public License as published by
  16. **  the Free Software Foundation; either version 2 of the License, or
  17. **  (at your option) any later version.
  18. **
  19. **  You may not change or alter any portion of this comment or credits
  20. **  of supporting developers from this source code or any supporting
  21. **  source code which is considered copyrighted (c) material of the
  22. **  original comment or credit authors.
  23. **
  24. **  This program is distributed in the hope that it will be useful,
  25. **  but WITHOUT ANY WARRANTY; without even the implied warranty of
  26. **  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  27. **  GNU General Public License for more details.
  28. **
  29. **  You should have received a copy of the GNU General Public License
  30. **  along with this program; if not, write to the Free Software
  31. **  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  32. **
  33. */
  34.  
  35. $DomainID                = hmailGetVar("DomainID",null);
  36. $DistributionlistID        = hmailGetVar("DistributionlistID",0);
  37. $function                = hmailGetVar("function","");
  38.  
  39. if (hmailGetAdminLevel() == 0)
  40.     hmailHackingAttemp(); // Users are not allowed to show this page.
  41.  
  42. if (hmailGetAdminLevel() == 1 && $DomainID != hmailGetDomainID())
  43.     hmailHackingAttemp(); // Domain admin but not for this domain.
  44.  
  45. $obDomain                = $obBaseApp->Domains->ItemByDBID($DomainID);
  46. $obDistributionlists    = $obDomain->DistributionLists();
  47. $obDistributionlist        = $obDistributionlists->ItemByDBID($DistributionlistID);
  48.  
  49. switch($function)
  50. {
  51.     case "dodelete":
  52.         $obDistributionlists->DeleteByDBID($DistributionlistID);
  53.         header("refresh: 0; url=index.php?page=distributionlists&DomainID=$DomainID");
  54.         exit();
  55.         break;
  56.  
  57.     default:
  58.         $hmailSmarty->assign("distributionlist",$obDistributionlist);
  59.         $hmailSmarty->assign("domain",$obDomain);
  60.         $hmailSmarty->assign("pagecontent", $hmailSmarty->fetch('distributionlists_delete.tpl'));
  61.         break;
  62. }
  63. ?>